home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 October / 64er_Magazin_91-10_1991_Markt__Technik_de_Side_B.d64 / quadro 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  486 b   |  13 lines
  1. 1 rem save"@0:quadro64",8:rem p. kittel, ffm, 8.5.91, 28.5.91
  2. 2 dima$(3):fori=1to28:a$(0)=a$(0)+" [157]":a$(1)=a$(1)+" [157]"
  3. 3 a$(2)=a$(2)+"[157] [157]":a$(3)=a$(3)+"[145] [157]":next:n=2:print"[147]";
  4. 4 x=rnd(0)*35+2:y=rnd(0)*23+1:r=rnd(0)*14+2:n=n+1:ifn>16thenn=1
  5. 5 h$=""+mid$("[144][159][156][158][129][149][150][151][152][153][154][155]",n,1):ifx-r<-1thenr=x+1
  6. 6 ifx+r>41thenr=41-x
  7. 7 ify-r<-1thenr=y+1
  8. 8 ify+r>26thenr=26-y
  9. 9 ifr<1thenr=1
  10. 10 printleft$("",y+1);spc(x);h$;" [157]";
  11. 11 fori=1tor-1:j=6*i:print"[157][145]";left$(a$(0),j);left$(a$(1),j);
  12. 12 printleft$(a$(2),j);left$(a$(3),j);:next:goto4
  13.